home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / jazlib.arc / TRUNCATE.C < prev    next >
Text File  |  1988-12-18  |  224b  |  16 lines
  1. truncate(fname,fsize)
  2. char *fname;
  3. long fsize;
  4. {
  5.   int whandle;
  6.  
  7.   whandle = jzopnfil(fname,2);
  8.  
  9.   if (whandle < 0) return(-1);
  10.   else {
  11.     chsize(whandle,fsize);
  12.     jzclsfil(whandle);
  13.     return(0);
  14.   }
  15. }
  16.